object ReportDlg: TReportDlg Left = 160 Top = 96 ActiveControl = ListBox2 BorderStyle = bsDialog Caption = 'Print Report' ClientHeight = 337 ClientWidth = 379 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] PixelsPerInch = 96 ShowHint = True OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow TextHeight = 13 object ButtonPanel: TPanel Left = 283 Top = 0 Width = 96 Height = 283 Align = alRight BevelOuter = bvNone Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object PrintBtn: TBitBtn Left = 13 Top = 59 Width = 77 Height = 27 Hint = 'Print Report On Selected Printer' Caption = '&Print' Default = True TabOrder = 2 OnClick = PrintBtnClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 13 Top = 1 Width = 77 Height = 27 Hint = 'Close This Window' Caption = '&Close' TabOrder = 0 Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 13 Top = 30 Width = 77 Height = 27 Hint = 'Display Help Window' TabOrder = 1 Kind = bkHelp Margin = 2 Spacing = -1 IsControl = True end object LoadBtn: TBitBtn Left = 13 Top = 146 Width = 77 Height = 27 Hint = 'Load Report Template From Disk File' Caption = '&Load' Default = True TabOrder = 5 OnClick = LoadBtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object SaveBtn: TBitBtn Left = 13 Top = 175 Width = 77 Height = 27 Hint = 'Save Report Template To Disk File' Caption = '&Save' Default = True TabOrder = 6 OnClick = SaveBtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object PreviewBtn: TBitBtn Left = 13 Top = 117 Width = 77 Height = 27 Hint = 'Preview Report On Screen' Caption = 'Pre&view' Default = True TabOrder = 4 OnClick = PreviewBtnClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 033333777777777773333330777777703333333773F333773333333330888033 33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9 FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000 8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0 8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0 8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000 8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF FF037FFFFFFFFFFFFF7F000000000000000377777777777777730000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object SelectBtn: TBitBtn Left = 13 Top = 88 Width = 77 Height = 27 Hint = 'Select Printer' Caption = 'S&elect' Default = True TabOrder = 3 OnClick = SelectBtnClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end end object TabSet: TTabSet Left = 0 Top = 316 Width = 379 Height = 21 Align = alBottom Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnClick = TabSetClick end object Notebook: TNotebook Left = 0 Top = 0 Width = 283 Height = 283 Align = alClient TabOrder = 2 IsControl = True object TPage Left = 0 Top = 0 Caption = 'Fields' IsControl = True object GroupBox1: TGroupBox Left = 3 Top = 4 Width = 277 Height = 275 Caption = 'Data Fields' TabOrder = 0 object Label1: TLabel Left = 5 Top = 18 Width = 56 Height = 13 Caption = 'All Fields:' end object Label2: TLabel Left = 157 Top = 18 Width = 91 Height = 13 Caption = 'Included Fields:' end object IncludeBtn: TSpeedButton Left = 126 Top = 52 Width = 24 Height = 24 Hint = 'Include Selected Field' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 74010000424D7401000000000000760000002800000013000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888FFFFF8888888888888888888000108888888888888888888FFFF58888 880088888888888000008888880A08888888888FFFFF8888880AA08888888880 00008888880AAA088888888FFFFF8888880AAAA08888888000008888880AAAAA 0888888131008888880AAAAAA088888095C08888880AAAAA0888888053028888 880AAAA088888887D5D58888880AAA0888888889091D8888880AA0888888888F CFD78888880A08888888888A7AE288888800888888888887CF57888888888888 88888881F9758888888888888888888AFBAF8888888888888888888E666C0000 000000000000000000000000000000000000000000000000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = IncludeBtnClick IsControl = True end object IncAllBtn: TSpeedButton Left = 125 Top = 81 Width = 24 Height = 24 Hint = 'Include All Fields' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 74010000424D7401000000000000760000002800000013000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888FFFFF8888888888888888888000108888888888888888888FFFF58008 8888880088888880000080A08888880A0888888FFFFF80AA0888880AA0888880 000080AAA088880AAA08888FFFFF80AAAA08880AAAA08880000080AAAAA0880A AAAA0881310080AAAAAA080AAAAAA08095C080AAAAA0880AAAAA0880530280AA AA08880AAAA08887D5D580AAA088880AAA088889091D80AA0888880AA088888F CFD780A08888880A0888888A7AE280088888880088888887CF57888888888888 88888881F9758888888888888888888AFBAF8888888888888888888E666C0000 000000000000000000000000000000000000000000000000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = IncAllBtnClick IsControl = True end object ExcludeBtn: TSpeedButton Left = 125 Top = 125 Width = 24 Height = 24 Hint = 'Exclude Selected Field' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 74010000424D7401000000000000760000002800000013000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888FFFFF8888888888888888888000108888888888888888888FFFF58888 888888800888888000008888888888090888888FFFFF88888888809908888880 00008888888809990888888FFFFF888888809999088888800000888888099999 0888888131008888809999990888888095C08888880999990888888053028888 8880999908888887D5D588888888099908888889091D8888888880990888888F CFD78888888888090888888A7AE288888888888008888887CF57888888888888 88888881F9758888888888888888888AFBAF8888888888888888888E666C0000 000000000000000000000000000000000000000000000000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = ExcludeBtnClick IsControl = True end object ExAllBtn: TSpeedButton Left = 125 Top = 154 Width = 24 Height = 24 Hint = 'Exclude All Fields' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 74010000424D7401000000000000760000002800000013000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888FFFFF8888888888888888888000108888888888888888888FFFF58888 888008888888008000008888880908888880908FFFFF88888099088888099080 00008888099908888099908FFFFF888099990888099990800000880999990880 9999908131008099999908099999908095C08809999908809999908053028880 9999088809999087D5D588880999088880999089091D8888809908888809908F CFD78888880908888880908A7AE288888880088888880087CF57888888888888 88888881F9758888888888888888888AFBAF8888888888888888888E666C0000 000000000000000000000000000000000000000000000000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = ExAllBtnClick IsControl = True end object MoveUpBtn: TSpeedButton Left = 184 Top = 222 Width = 24 Height = 24 Hint = 'Move Up' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333 3333333333777F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000 3333333777737777F333333099999990333333373F3333373333333309999903 333333337F33337F33333333099999033333333373F333733333333330999033 3333333337F337F3333333333099903333333333373F37333333333333090333 33333333337F7F33333333333309033333333333337373333333333333303333 333333333337F3333333333333303333333333333337333333330000} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = MoveUpBtnClick IsControl = True end object MoveDownBtn: TSpeedButton Left = 216 Top = 222 Width = 24 Height = 24 Hint = 'Move Down' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337F33333333333333033333333333333373F333333333333090333 33333333337F7F33333333333309033333333333337373F33333333330999033 3333333337F337F33333333330999033333333333733373F3333333309999903 333333337F33337F33333333099999033333333373333373F333333099999990 33333337FFFF3FF7F33333300009000033333337777F77773333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F333333333333000333333333333377733333330000} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = MoveDownBtnClick IsControl = True end object Label5: TLabel Left = 173 Top = 251 Width = 38 Height = 13 Caption = 'Width:' end object ListBox1: TListBox Left = 5 Top = 34 Width = 113 Height = 231 Hint = 'List Of All Data Fields' ItemHeight = 13 TabOrder = 0 end object ListBox2: TListBox Left = 158 Top = 34 Width = 113 Height = 183 Hint = 'Data Fields Selected For Report' ItemHeight = 13 TabOrder = 1 OnClick = ListBox2Click end object FieldWidthEd: TEdit Left = 216 Top = 249 Width = 55 Height = 20 Hint = 'Selected Field Width in Units (only for Column Report Layout)' TabOrder = 2 OnChange = FieldWidthEdChange OnKeyPress = LeftEdKeyPress end end end object TPage Left = 0 Top = 0 Caption = 'Options' object GroupBox3: TGroupBox Left = 3 Top = 4 Width = 277 Height = 275 Caption = 'Report Options' TabOrder = 0 object LabelsRG: TRadioGroup Left = 15 Top = 15 Width = 185 Height = 49 Hint = 'Field Names Printed Or Not' Caption = 'Field Names' Items.Strings = ( 'Print Field Names' 'Don'#39't Print Field Names') TabOrder = 0 end object LayoutRG: TRadioGroup Left = 15 Top = 66 Width = 185 Height = 49 Hint = 'Select How Data Fields Are Printed' Caption = 'Report Layout' Items.Strings = ( 'Fields In Columns' 'Fields In Rows') TabOrder = 1 OnClick = LayoutRGClick end object GridRG: TRadioGroup Left = 15 Top = 117 Width = 185 Height = 49 Hint = 'Should Grid Be Printed' Caption = 'Grid' Items.Strings = ( 'Print Grid' 'Don'#39't Print Grid') TabOrder = 2 end object TotalRG: TRadioGroup Left = 15 Top = 219 Width = 185 Height = 49 Hint = 'Totals For Numeric Fields' Caption = 'Totals' Items.Strings = ( 'Total Numeric Fields' 'Don'#39't Total Numeric Fields') TabOrder = 4 OnClick = LayoutRGClick end object RadioGroup1: TRadioGroup Left = 16 Top = 168 Width = 185 Height = 44 Caption = 'Units Of Measure' Items.Strings = ( 'inches' 'centimeters') TabOrder = 3 OnClick = RadioGroup1Click end end end object TPage Left = 0 Top = 0 Caption = 'Page' object GroupBox5: TGroupBox Left = 3 Top = 1 Width = 277 Height = 275 Caption = 'Page Settings' TabOrder = 0 object Image3: TImage Left = 216 Top = 152 Width = 33 Height = 33 Picture.Data = {} end object Image4: TImage Left = 216 Top = 152 Width = 33 Height = 33 Picture.Data = {} Visible = False end object Image5: TImage Left = 216 Top = 152 Width = 33 Height = 33 Picture.Data = {} Visible = False end object Image2: TImage Left = 216 Top = 224 Width = 49 Height = 41 Picture.Data = {} Visible = False end object Image1: TImage Left = 216 Top = 224 Width = 49 Height = 41 Picture.Data = {} end object GroupBox6: TGroupBox Left = 8 Top = 14 Width = 201 Height = 75 Caption = 'Margins in Units' TabOrder = 0 object Label6: TLabel Left = 6 Top = 24 Width = 27 Height = 13 Caption = 'Left:' end object Label7: TLabel Left = 105 Top = 24 Width = 35 Height = 13 Caption = 'Right:' end object Label8: TLabel Left = 96 Top = 50 Width = 44 Height = 13 Caption = 'Bottom:' end object Label9: TLabel Left = 6 Top = 50 Width = 27 Height = 13 Caption = 'Top:' end object LeftEd: TEdit Left = 38 Top = 21 Width = 49 Height = 20 TabOrder = 0 OnKeyPress = LeftEdKeyPress end object RightEd: TEdit Left = 141 Top = 21 Width = 49 Height = 20 TabOrder = 1 OnKeyPress = LeftEdKeyPress end object BottomEd: TEdit Left = 141 Top = 47 Width = 49 Height = 20 TabOrder = 3 OnKeyPress = LeftEdKeyPress end object TopEd: TEdit Left = 38 Top = 47 Width = 49 Height = 20 TabOrder = 2 OnKeyPress = LeftEdKeyPress end end object GroupBox2: TGroupBox Left = 8 Top = 91 Width = 201 Height = 123 Caption = 'Page Size in Units' TabOrder = 1 object Label3: TLabel Left = 5 Top = 19 Width = 38 Height = 13 Caption = 'Width:' end object Label4: TLabel Left = 101 Top = 19 Width = 42 Height = 13 Caption = 'Height:' end object SizeRG: TRadioGroup Left = 8 Top = 35 Width = 185 Height = 84 Hint = 'Some Page Sizes may not be accepted by your Printer' Items.Strings = ( 'Letter' 'Legal' 'A4' 'Envelope #10' 'Custom') TabOrder = 2 OnClick = SizeRGClick end object WidthEd: TEdit Left = 43 Top = 16 Width = 49 Height = 20 TabOrder = 0 OnKeyPress = LeftEdKeyPress end object HeightEd: TEdit Left = 143 Top = 16 Width = 49 Height = 20 TabOrder = 1 OnKeyPress = LeftEdKeyPress end end object OrientationRG: TRadioGroup Left = 7 Top = 215 Width = 202 Height = 49 Hint = 'Select Page Orientation' Caption = 'Page Orientation' Items.Strings = ( 'Portrait' 'Landscape') TabOrder = 2 OnClick = OrientationRGClick end end end object TPage Left = 0 Top = 0 Caption = 'Fonts' object GroupBox4: TGroupBox Left = 3 Top = 4 Width = 277 Height = 275 Caption = 'Fonts' TabOrder = 0 object Label10: TLabel Left = 16 Top = 16 Width = 66 Height = 13 Caption = 'Font Name:' end object Label11: TLabel Left = 16 Top = 56 Width = 62 Height = 13 Caption = 'Font Style:' end object Label12: TLabel Left = 16 Top = 104 Width = 58 Height = 13 Caption = 'Font Size:' end object FontEd: TEdit Left = 16 Top = 32 Width = 185 Height = 20 TabStop = False Color = clBtnFace ReadOnly = True TabOrder = 0 end object StyleEd: TEdit Left = 16 Top = 72 Width = 185 Height = 20 TabStop = False Color = clBtnFace ReadOnly = True TabOrder = 1 end object SizeEd: TEdit Left = 16 Top = 120 Width = 185 Height = 20 TabStop = False Color = clBtnFace ReadOnly = True TabOrder = 2 end object FontBtn: TBitBtn Left = 80 Top = 160 Width = 113 Height = 33 Hint = 'Select Font' Caption = 'Change Font' TabOrder = 3 OnClick = FontBtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333FFF33FFFFF33333300033000 00333337773377777333333330333300033333337FF33777F333333330733300 0333333377FFF777F33333333700000073333333777777773333333333033000 3333333337FF777F333333333307300033333333377F777F3333333333703007 33333333377F7773333333333330000333333333337777F33333333333300003 33333333337777F3333333333337007333333333337777333333333333330033 3333333333377333333333333333033333333333333733333333333333333333 3333333333333333333333333333333333333333333333333333} Margin = 5 NumGlyphs = 2 end end end object TPage Left = 0 Top = 0 Caption = 'Title' object GroupBox7: TGroupBox Left = 3 Top = 4 Width = 277 Height = 275 Caption = 'Report Title' TabOrder = 0 object Label13: TLabel Left = 8 Top = 19 Width = 72 Height = 13 Caption = 'Report Title:' end object TitleEd: TEdit Left = 8 Top = 33 Width = 249 Height = 20 Hint = 'Enter Report Title' TabOrder = 0 end object TitleRG: TRadioGroup Left = 8 Top = 56 Width = 185 Height = 49 Hint = 'Print On First Page or On All Pages' Caption = 'Title Options' Items.Strings = ( 'Print On First Page Only' 'Print On All Pages') TabOrder = 1 end object PageNumRG: TRadioGroup Left = 8 Top = 128 Width = 185 Height = 65 Hint = 'Page Numbers And Date Options' Caption = 'Page Numbers/Date' Items.Strings = ( 'Do Not Print' 'Print At The Top' 'Print At The Bottom') TabOrder = 2 end end end end object Panel1: TPanel Left = 0 Top = 283 Width = 379 Height = 33 Align = alBottom BevelOuter = bvNone TabOrder = 3 object PreviousBtn: TButton Left = 16 Top = 3 Width = 89 Height = 25 Caption = '<< P&revious' TabOrder = 0 Visible = False OnClick = PreviousBtnClick end object NextBtn: TButton Left = 162 Top = 3 Width = 89 Height = 25 Caption = '&Next >>' TabOrder = 1 OnClick = NextBtnClick end end object FontDialog1: TFontDialog Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 336 Top = 287 end end